9100 REM STEAM TRAIN
9110 POKE54296,15
9120 D=450
9130 FORA=1TO300
9140 GOSUB9180
9150 IFD=45THEN9170
9160 D=D-5
9170 NEXTA:RETURN
9180 POKE54277,64:POKE54278,48
9190 POKE54273,50:POKE54272,100
9200 POKE54276,129:FORT=1TO10:NEXTT
9210 POKE54276,128:FORT=1TOD:NEXTT
9220 RETURN